home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / spectcl-.000 / spectcl- / usr / local / SpecTcl-0.1a / help.ui.tcl < prev    next >
Encoding:
Text File  |  1995-11-06  |  2.7 KB  |  112 lines
  1. # SpecTcl, by S. A. Uhler
  2. # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  3. #
  4. # See the file "license.txt" for information on usage and redistribution
  5. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  6. #
  7. # interface generated from help.ui
  8. #   root     is the parent window for this user interface
  9.  
  10. proc help_ui {root args} {
  11.  
  12.     # this treats "." as a special case
  13.  
  14.     if {$root == "."} {
  15.         set base ""
  16.     } else {
  17.         set base $root
  18.     }
  19.     
  20.     frame $base.frame#1
  21.  
  22.     button $base.back \
  23.         -command "HMlink_callback $base.text" \
  24.         -padx 9 \
  25.         -pady 3 \
  26.         -text back
  27.  
  28.     button $base.button#2 \
  29.         -command "HMset_state $base.text -stop 1; destroy $root" \
  30.         -padx 9 \
  31.         -pady 3 \
  32.         -text dismiss
  33.  
  34.     label $base.file \
  35.         -textvariable Help_file \
  36.         -width 20
  37.  
  38.     scrollbar $base.scrollbar#1 \
  39.         -command "$base.text yview" \
  40.         -orient v
  41.  
  42.     text $base.text \
  43.         -height 1 \
  44.         -highlightthickness 0 \
  45.         -width 1 \
  46.         -xscrollcommand "$base.scrollbar#2 set" \
  47.         -yscrollcommand "$base.scrollbar#1 set"
  48.     catch {
  49.         $base.text configure \
  50.             -font -*-Courier-Medium-R-Normal--*-140-*-*-*-*-*-*
  51.     }
  52.  
  53.     scrollbar $base.scrollbar#2 \
  54.         -command "$base.text xview" \
  55.         -orient h
  56.  
  57.     label $base.message \
  58.         -textvariable Help_message
  59.  
  60.  
  61.     # Geometry management
  62.  
  63.     blt_table $root $base.frame#1     1,1  \
  64.         -anchor w \
  65.         -columnspan 2
  66.     blt_table $base.frame#1 $base.back     1,1 
  67.     blt_table $base.frame#1 $base.button#2     1,2 
  68.     blt_table $base.frame#1 $base.file     1,3 
  69.     blt_table $root $base.scrollbar#1     2,1  \
  70.         -fill y
  71.     blt_table $root $base.text     2,2  \
  72.         -fill both
  73.     blt_table $root $base.scrollbar#2     3,2  \
  74.         -fill x
  75.     blt_table $root $base.message     4,1  \
  76.         -columnspan 2
  77.  
  78.     # Resize behavior management
  79.  
  80.     blt_table row $root configure all -resize none
  81.     blt_table row $root configure 2 -resize both
  82.     blt_table row $root configure 1 -height {30 Inf}
  83.     blt_table row $root configure 2 -height {442 Inf}
  84.     blt_table row $root configure 3 -height {12 Inf}
  85.     blt_table row $root configure 4 -height {15 Inf}
  86.     blt_table column $root configure all -resize none
  87.     blt_table column $root configure 2 -resize both
  88.     blt_table column $root configure 1 -width {15 Inf}
  89.     blt_table column $root configure 2 -width {523 Inf}
  90.  
  91.     blt_table row $base.frame#1 configure all -resize none
  92.     blt_table row $base.frame#1 configure 1 -height {30 Inf}
  93.     blt_table column $base.frame#1 configure all -resize none
  94.     blt_table column $base.frame#1 configure 1 -width {26 Inf}
  95.     blt_table column $base.frame#1 configure 2 -width {30 Inf}
  96.     blt_table column $base.frame#1 configure 3 -width {30 Inf}
  97. # additional interface code
  98. global Fonts
  99. catch {unset Fonts}
  100.  
  101. bind $base.text <space> {%W yview scroll 1 page;break}
  102. bind $base.text <Home> {%W yview 0.0;break}
  103. focus $base.text
  104.  
  105.  
  106.  
  107.  
  108.  
  109. # end additional interface code
  110.  
  111. }
  112.